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| **FILE**1 Dee LOCKDB 
LL 000000 cccccccc KK KK DDDDDDDD 688868888 
LL 000000 CCccccce SKK KK DDDDDDDD 688886888 
LL 68 oo CC KK KK DOD DD 6B 88 
LL oo CC KK KK 0D DO 6B 88 
LL 00 88 cc KK KK DO DD 8B 88 
LL 00 CC KK K DD DD 6B 88 
LL 00 oo CC KKKKKK 00 DO 88888688 
LL 00 oo CC KKKKKK DD DD 688 
LL 00 oo CC KK K dD 0D 88 88 
LL 00 oo CC KK KK DD DD 6B 8B 
LL 00 oo CC as KK DD 0D 88 88 eee 
LL 00 oo cc KK KK 0D 0D 88 88 eeee 
LELLELELLL 000000 cccccccc KK KK DODDDDDD 68888888 coos 
LLLLLELLLLL 000000 ccccccce KK KK DDDDDDDD 6888688888 cove 
LL II11] SSSSSSSS 
LL Wi SSSSSSSS 
LL I] $$ 
LL I] S$ 
LL I] $$ 
LL I] $s 
LL I] $SSSSS 
LL I] $SSSSS 
LL I] SS 
LL I] $$ 
LL I] $$ 
LL I] $$ 
LLELLLELLLLLE L110] $SSSSSSS 
LLLLLLELLL M110] SSSSSSSS 
| 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
& 
:f 7 
:f aa 
:@ * 
*@ ® 
:@ THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED > 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
:* INCLUSION OF THE ABOV COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:@ COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
:@ TRANSFERRED. . 
° ® 
:® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:# CORPORATION. “ 
*@ & 
*@ ® 
*@ i 
zw & 
*? ® 
*® ® 


DIGITAL ASSUMES NO oy e 


BI 
SOFTWARE ON EQUIPMENT WHICH | 


ITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
H IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: DISMOUNT SYSTEM SRVICE 
ABSTRACT: 


THESE ROUTINES LOCK AND UNLOCK THE I/O DATA BASE MUTEX. 
NEEDLESS TO SAY, THEY MUST BE CALLED IN KERNEL MODE. 


ENVIRONMENT: 


STARLET OPERAT 


ING SYSTEM, INCLUDING PRIVILEGED SYSTEM SERVICES 
AND INTERNAL EXEC R 


OUTINE. 


AUTHOR: ANDREW C. GOLDSTEIN, CREATION DATE: 29-APR-1977 15:31 
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MODIFIED BY: 
v03-002 yeuoeer Todd 27-Apr-1983 

0000 ity OCK_LNM to lock thee lo iget name aaabe for reading 
D00¢ ~y calling CNMSLOCKR. Rod de bee K_LNM to unlock the logical 
2006 name mutex by calling LNMSUNLOCK 

‘ 
1000 VO3-001 RASO168 Ron Schaefer 12-Jul-1983 
0000 hee rout ineg to lock con haa fear the LNM mu 
000¢ This mutex is only processed when the 1/0" poe is held as well. 
UUOU 
0000 v02-001 ACG0248 Andrew C. Goldstein, 31-Dec-1981 13:55 
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X/VMS Macro V04-00 
DISMOU.SRCJLOCKDB.MAR; 1 
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Modify for use in DISMOUNT 


A0100 §©AaCG00001 Andrew C. Goldstein, 10-Oct-1978 20:04 
Previous revision history moved to FITA.REV 
SPROEF 3 DEFINE PROCESOR REGISTER NUMBERS 


«PSECT ZSD1SMOUNT ,NOWRT ,SHR,PIC 
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v0o=000 © tte ape eae ty coop "S$Eb-1986 60:10:59 UpTsmou.saescockbacman:1 "#8 3) 
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FUNCTIONAL DESCRIPTION: 
THIS ROUTINE LOCKS THE 1/0 DATA BASE MUTEX. 


CALLING SEQUENCE: 
CALL LOCK_1008 () 


INPUT PARAMETERS: 
NONE 


~~~ 


IMPLICIT INPUTS: 
NONE 


Mm BK ZZZZZ Zee HK 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 
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T$: 
DATA BASE MUTEX LOCKED 


SIDE EFFE 
1/0 
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LOCK_IODB:: 

“WORD “M<R2,R3,R4,R5> > SAVE REGISTERS 

MOVAL a@#10C$GL_MUTEX,RO + GET 1/0 DATA BASE MUTEX 
MOVL a@#SCH$GL~CURPCB,R4 : GET OWN PCB ADDRESS 
a*SCHSLOCKW 3; AND LOCK IT 
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FUNCTIONAL DESCRIPTION: 
THIS ROUTINE UNLOCKS THE I/0 DATA BASE MUTEX. 


CALLING SEQUENCE: 
CALL UNLOCK_10DB8 () 


0017 
0017 INPUT PARAMETERS: 
0017 NONE 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
apie NONE 
H0 
7 IMPLICIT OUTPUTS: 
NONE 


ROUT INE Loe 
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? 

7 SIDE EFFECTS: 

7 1/0 DATA B ASE E MUTEX UNLOCKED 

, IPL LOWERE 

7 oo 

7 

7 UNLOCK_100B: : 

? -WORD “M<R2,R3,R4,R5> ; SAVE REGISTERS 

9 MOVAL  a#10C$GL_MUTEX,RO : GET 1/0 DATA BASE MUTEX 

9 MOVL Sp ecuser “CURPCB,R4 : AND OWN PCB ADDRESS 
JSB a#SCHSUNCOCK 3 AND UNLOCK IT 

D SETIPL #0 + ALSO LOWER IPL 

0 RET 

1 
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54 00000000° 9F 
00000000 ' 9F 
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FUNCTIONAL DESCRIPTION: 
THIS ROUTINE LOCKS THE LOGICAL NAME DATA BASE MUTEX. 
CALLING SEQUENCE: 


CALL LOCK _LNM () 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
LOGICAL NAME DATA BASE MUTEX LOCKED 


ed Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


“WORD “M<R2,R3,R4,R5> ; SAVE REGISTERS 
MOVL  a#SCH$GL’CURPCB,R4 : GET OWN PCB ADDRESS 
JSB @4LNMSLOCKR 3; AND LOCK LOGICAL NAME MUTEX 
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FUNCTIONAL DESCRIPTION: 
THIS ROUTINE UNLOCKS THE LOGICAL NAME DATA BASE MUTEX. 


CALLING SEQUENCE: 
CALL UNLOCK_LNM () 


INPUT PARAMETERS: 
NONE 


Wwro—O 
= 
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IMPLICIT INPUTS: 
NONE 
- OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE ‘one 


3 tt HS S$ “DOOCOCOOVOCOSOSO OCOOOOOO OO OMMoccdcc ccc. 
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SIDE EFFECTS 
LOGICAL NAME DATA BASE MUTEX UNLOCKED 
UNLOCK _LNM: : 
003¢ ,WORD  “M<R2,R3,R4,R ; SAVE REGISTERS 
54 00000000°9F 00 MOVL a#SCH$GL- He R4 AND OWN PCB ADDRESS 
00000000 ' 9F i ise @#LNMSUNCOCK : AND UNLOCK LOGICAL NAME MUTEX 
END 
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LOCKDB = LOCK AND UNLOCK I/0 DATA BASE 15-SEP-1984 43:1 AX/VMS Macro v04-00 Page 7 
Symbol table aoe 1 388 83:10:59 YO TSMOU. SREILOCKDB MAR: 1 ° (5) 
LOCSGL_MUTEX eeererre X 
LNMSLOCKR eeentere X 
LNMSUNLOCK eeeereer 
LOCK_10DB 0 RG 
LOC 1 
PRS_TPL = 
SCHSGL_CURPCB eeeeeeee x 
SCHSLOCKW eereeere xX 
SCHSUNLOCK eererere x 
UNLOCK _ 1008 8308 017 RG 8 
UNLOCK _LNA 000041 RG 

or wesresaecaaas som} 

: Psect synopsis ! 

Foeeewreosesocesaaam $ 
PSECT name Allocation PSECT No. Attributes 
» 8 « 0000000 ( 5° 0¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD WNOWRT NOVEC BYTE 
SABSS 000000 ( of 1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
7$0 1 SMOUNT 00000051 <¢ 81.) .e Bes PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC BYTE 

fewer esr etree secon er ce se oon ¢ 
: Performance indicators : 

Phase Page faults CPU Time Elapsed Time 
Initialization +] 0:00:00.07 :00: 1-60 
Command processing 106 :00:00.59 2 'f 3.5 
Pass 130 :00:01.41 :00:06.5 
Symbol table sort 0 0:00: +98 8: :00.1 
Pass 2 51 :00:00. 8 :00:02.05 
Symbol table output :00:00. 0:00: +06 
Psect synopsis output :00:00.04 0:00:00.1 
Cross-reference output :00:00. 0:00:00.00 
Assembler run totals 32 0:00:02. 0:00:13.94 


The working $ t Limit was 1200 pages. 

6108 bytes (12 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 90 non-local and 0 local symbols. 
17 source lines were read in Pass 1, produc ing 15 object records in Pass 2. 
pages of virtual memory were used to define & macros. 
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! Macro library statistics ! 


Powmawmnewresaarsruonwmensearsanwas > 


Macro library name Macros defined 
$255$DUA28:(SVS.08J)L18.MLB6;1 1 
Stites Hetite {STARLET -ALB;2 4 

TOTALS (all Libraries) 5 


146 GETS were required to define 5 macros. 


There were no errors, warnings or information messages. 


8 8 | 
LOCK = LOCK AND UNLOCK I/0 DATA BASE 15-SEP-1984 23:43:1 AX/VMS Macro v04-00 Page 
Uke Macro Run Statistics iia 83:10:59 YO1SMOU.SREILOCKDB.MAR: 1 . () 


MACRO/LIS=L1IS$:LOCKDB/0BJ=0BJ$:LOCKDB MSRC$:LOCKDB/UPDATE=(ENHS$:LOCKDB) *EXECMLS/LIB 
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